delphi获取目录下所有文件名

procedure searchfile(path:string);//注意,path后面要有'\'; var SearchRe ...